home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Sound / Juke-Box folder / Juke-Box Demo v 1.1 / Juke-Box Demo v 1.92 / 00158_-Menu.ls < prev    next >
Encoding:
Text File  |  1994-10-17  |  834 b   |  31 lines
  1. on mouseDown
  2.   set spriteNumber to the clickOn
  3.   puppetSprite(spriteNumber, 1)
  4.   set normal to the name of cast the mouseCast
  5.   set pressed to the name of cast the mouseCast
  6.   put "‚Ä¢" into char 1 of pressed
  7.   if pressed = "‚Ä¢" then
  8.     puppetSprite(spriteNumber, 1)
  9.     exit
  10.   end if
  11.   repeat while the mouseDown
  12.     set the castNum of sprite spriteNumber to cast pressed
  13.     if not rollOver(spriteNumber) then
  14.       set the castNum of sprite spriteNumber to cast normal
  15.       updateStage()
  16.       puppetSprite(spriteNumber, 0)
  17.       exit
  18.     end if
  19.     updateStage()
  20.   end repeat
  21.   set the castNum of sprite spriteNumber to cast normal
  22.   puppetSprite(spriteNumber, 0)
  23.   updateStage()
  24.   puppetSprite(40, 1)
  25.   set the castNum of sprite 40 to cast "*BoutonON"
  26.   puppetSprite(40, 0)
  27.   updateStage()
  28.   midiplay("stop")
  29.   go("main")
  30. end
  31.